Resumen grafico

Esta página web contine el último sumario del BOE publicado el 2020-10-22 con 263 publicaciones, de las cuales 78 son disposiciones.

library("dplyr")
library("ggalluvial")
library("forcats")
library("patchwork")
freqs <- sumario_hoy %>% 
  mutate(Type = ifelse(is.na(epigraph), "Anuncio", "Disposición")) %>% 
  group_by(section_number, departament, Type, epigraph) %>% 
  count(name = "Freq", sort = TRUE) %>% 
  ungroup() %>% 
  arrange(section_number, departament) %>% 
  mutate(section = fct_inorder(as.factor(section_number)),
         departament = fct_inorder(as.factor(tolower(departament))),
         epigraph = fct_inorder(as.factor(epigraph))) %>% 
  mutate(section = gsub("(.* -)? ?.+\\. ", "", section))
p1 <- freqs %>% 
  filter(Type == "Anuncio") %>% 
  ggplot(aes(y = Freq, 
             axis1 = forcats::fct_reorder(section, -Freq, .fun = sum), 
             axis2 = forcats::fct_reorder(departament, -Freq, .fun = sum))) +
  geom_alluvium() +
  geom_stratum(fill = "white", color = "darkgrey") +
  ggfittext::geom_fit_text(mapping = aes(label = after_stat(stratum)), 
                           stat = "stratum", min.size = 1) +
  guides(fill = FALSE) +
  theme_void() +
  labs(title = paste("Anuncios publicadas el", today),
         caption = "Fuente: Agencia Estatal del Boletín Oficial del Estado\nAutor: @Lluis_Rev")

p2 <- freqs %>% 
  filter(Type != "Anuncio") %>% 
  ggplot(aes(y = Freq, 
             axis1 = forcats::fct_reorder(section, -Freq, .fun = sum), 
             axis2 = forcats::fct_reorder(departament, -Freq, .fun = sum), 
             axis3 = forcats::fct_reorder(epigraph, -Freq, .fun = sum))) +
  geom_alluvium(fill = "grey") +
  geom_stratum(fill = "white", color = "darkgrey") +
  # geom_text(stat = "stratum", aes(label = after_stat(stratum))) +
  ggfittext::geom_fit_text(mapping = aes(label = after_stat(stratum)), 
                           stat = "stratum", min.size = 1) +
  guides(fill = FALSE) +
  theme_void() +
  labs(title = paste("Disposiciones publicadas el", today),
       caption = "Fuente: Agencia Estatal del Boletín Oficial del Estado\nAutor: @Lluis_Rev")
p2

Tabla

Aquí está la tabla completa con links:

pubs <- url_publications(sumario_hoy)
pubs <- paste0("<a href=", pubs, ">", sumario_hoy$publication, "</a>")
s <- cbind(sumario_hoy, pubs)
s <- s[, -c(1, 2, 3, 4, 7, 10)]
colnames(s) <- c("Sección", "Departamento", "Epígrafe", "Texto", "Páginas", "Link")
DT::datatable(s, filter = 'top', options = list(
  pageLength = 10, autoWidth = TRUE
), escape = FALSE)
p1

library("rtweet")
nacionalizaciones <- sum(grepl(x = sumario_hoy$text, 
            pattern = "concede la nacionalidad española"))
extravios <- sum(grepl(x = sumario_hoy$text, 
                               pattern = "extrav[íi]o del? (un )?t[íi]tulo"))
medallas <- sum(sumario_hoy$epigraph == "Condecoraciones", na.rm = TRUE)
subvenciones <- sum(sumario_hoy$epigraph == "Subvenciones", na.rm = TRUE)
disposiciones <- ts[["A"]]
anuncios <- ts[["B"]]
anuncios_particulares <- sum(sumario_hoy$section == "5C", na.rm = TRUE)
link0 <- "https://llrs.github.io/BOE_historico/last_BOE.html"
links <- c("Lo podeis consultar fácilmente en ", 
           "Mirad el resumen de lo publicado hoy en ",
           "Todo lo publicado en ")
link <- paste0(sample(links, 1), link0)
status <- paste("Hoy hay", disposiciones, "disoposiciones y",
                anuncios, "anuncios nuevos en el #BOE.\n")
if (extravios > 0) {
  status <- c(status, "De ellos ", extravios, 
         " extravíos de títulos universitarios.\n")
}
if (nacionalizaciones > 0) {
  status <- c(status, "También", nacionalizaciones, 
         " cartas de naturaleza.\n")
}
if (medallas > 0) {
  status <- c(status, "Otorgadas", medallas, 
         " condecoraciones.\n")
}
if (subvenciones > 0) {
  status <- c(status, "Otorgadas", subvenciones, 
         " subvenciones.\n")
}
if (anuncios_particulares > 0) {
  status <- c(status, "Importante: ", anuncios_particulares, 
         " anuncios particulares.\n")
}

status <- c(status, link)

if (sum(nchar(status)) > 280) {
  status <- paste0("Hoy el #BOE va muy cargado...\n.", link)
}

id_tweet <- function(x) {
  httr::content(x)$id_str
}

r <- post_tweet(status = paste0(status, collapse = ""),
           media = "docs/last_BOE_files/figure-html/graphics-1.png")
# r2 <- post_tweet(status, in_reply_to_status_id = id_tweet(r), 
#            auto_populate_reply_metadata = TRUE)